
libname save "./" ; 

options mprint;
options ls=120 formdlim="-" symbolgen mlogic; * ps=2000;

/****************************************************************** 

this pgm reads transunion data, specifically the ACCEPTS file 

******************************************************************/
%macro tu;

    proc sort data=save.tu&sufx.;
        by TUEDT_2003;
    run;
    proc sort data=save.tu&sufx._add;
        by TUEDT_2003;
    run;


    
    data save.tu&sufx._merged;
        merge
            save.tu&sufx. (in=i1)
            save.tu&sufx._add (in=i2);
        by TUEDT_2003;
        if i1=1 and i2=1;
run;
                                               
proc contents;
proc print data = save.tu&sufx._merged (obs=300) label;  ** label here ; 
run;

proc print data = save.tu&sufx._merged (obs=300) ;  ** no label here ; 
run;
%mend  tu;

%let sufx = 201006; 
%let tt = PRM.EDTOUT.DGMFEDRE.P287567.ACC_add.txt;

%tu;
run;

%let sufx = 201206; 
%let tt = PRM.EDTOUT.DGMFEDRE.P287568.ACC_add.txt; 

%tu;
run;

%let sufx = 201406; 
%let tt = PRM.EDTOUT.DGMFEDRE.P287569.ACC_add.txt; 

%tu;
run;
 

endsas ; 
